home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).do / CARLOANS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  817b  |  29 lines
  1. 100  HOME 
  2. 110 A = 0:B = 0:C = 0:D = 0:E = 0:K = 0
  3. 170  PRINT "HOW MUCH ARE YOU FINANCING";: INPUT PZ: PRINT 
  4. 180 E = P
  5. 190 I1 = 10:I3 = 19
  6. 200  PRINT 
  7. 220 L1 = 3
  8. 230  HOME : PRINT " ** $"PZ
  9. 240  PRINT "YRS   %    PAYMNT  INT   TOTAL"
  10. 250  IF I1 <1  THEN I1 = I1 *100
  11. 260  FOR I2 = I1 TO I3
  12. 270  LET I = I2/100
  13. 280  FOR L = L1 TO L1 +1:D = L
  14. 290 A = 0:B = 0:C = 0:K = 0:P = PZ:E = P
  15. 300 P1 = P *(I/12)/(1 -(1/(1 +(I/12)) ^(L *12)))
  16. 310 P1 =  INT(P1 *100 +.5)/100
  17. 320  FOR M = 1 TO L *12
  18. 330 P2 = P *I/12
  19. 340 P2 =  INT(P2 *100 +.5)/100
  20. 350 P3 = P1 -P2
  21. 360 P =  INT((P -P3) *100 +.5)/100
  22. 370 A = M +0:B = P1 +B:C = P2 +C
  23. 380  NEXT M
  24. 400 C =  INT(C +.59)
  25. 420 B =  INT(B +P +.59)
  26. 460 I7 = I *100
  27. 470  HTAB 2: PRINT D;: HTAB 6: PRINT I7;: HTAB 12: PRINT P1;: HTAB 20: PRINT C;: HTAB 26: PRINT B
  28. 480  NEXT : NEXT 
  29. 490  END